﻿Imports Mysoft.Map.Application.Controls
Imports Mysoft.Map.Application.Types
Imports Mysoft.Map.Data

Partial Public Class WF_Process_ShowHisVersion
    Inherits Mysoft.Map.Application.Security.AppPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Request.QueryString("oid") Is Nothing Then
            Dim dt As DataTable = MyDB.GetDataTable("SELECT HistoryGUID,ProcessGUID,Version,DocumentGUID,Reason,SaveDatetime,Corrector FROM myWorkflowProcessHisVersion WHERE HistoryGUID ='" & Request.QueryString("oid").ToString() & "'")
            If dt.Rows.Count > 0 Then
                txtHistoryGUID.Value = dt.Rows(0)("HistoryGUID").ToString()
                txtDocumentGUID.Value = dt.Rows(0)("DocumentGUID").ToString()
                txtProcessGUID.Value = dt.Rows(0)("ProcessGUID").ToString()
            Else
                Response.End()
            End If
        End If
    End Sub

End Class